1 Introduction

data.raw <- get.raw.dataset()
data.melt <- get.melted.dataset(data.raw)

data.melt$education_discrepancy <- data.melt$education_boys - data.melt$education_girls

data.melt %<>% append.regions()

write.csv(data.melt, "ComprehensiveMeltedData.csv", row.names=F)
## [1] "Country not found: Channel Islands"          
## [2] "Country not found: Cote d'Ivoire"            
## [3] "Country not found: Eswatini"                 
## [4] "Country not found: Gibraltar"                
## [5] "Country not found: Holy See"                 
## [6] "Country not found: Macao, China"             
## [7] "Country not found: Netherlands Antilles"     
## [8] "Country not found: Sint Maarten (Dutch part)"
## [9] "Country not found: Tuvalu"

Figure 1.1: Average Gini Coefficient

Figure 1.2: Correlation